home *** CD-ROM | disk | FTP | other *** search
/ Hackers Matrix / Hacker's Matrix (nCite Software) (2003).iso / Data / hack0638.exe / autoident.mrc < prev    next >
Text File  |  2000-03-17  |  9KB  |  246 lines
  1. ;DALnet DALnet Auto-Identifier v1.50
  2. ;      by: Zmodem
  3.  
  4. ;Just made a few improvements over the old one (Basically bug fixes)
  5.  
  6. ;A few *tweaks* were made as well. Be on the lookout for v2.00 (Yes, I have decided to make one) -Zmodem
  7.  
  8. ;I believe this version still works with v5.61 (But possibly not. This was only tested on 5.7, but I don't want to limit it
  9. ;to only those few who have downloaded it)
  10.  
  11.  
  12. ; Dialogs
  13.  
  14. dialog zmodem.autoid {
  15.   option dbu
  16.   title  "ZDA-I v1.50 Options"
  17.   size   121 185 80 30
  18.   check  "&Enabled", 1, 5 3 39 12
  19.   button "&Setup", 2, 42 1 30 13
  20.   button "E&xit", 3, 42 18 30 10, ok
  21. }
  22.  
  23. dialog zmodem.autoid.setup {
  24.   option dbu
  25.   title  "Zmodem's DALnet Auto-Identifier v1.50"
  26.   size   42 96 180 178
  27.   box    "Info", 1, 6 1 167 35
  28.   text   "Nickname",2, 13 10 30 12
  29.   text   "Password",3, 13 25 30 12
  30.   edit  "",4, 44 7 90 10
  31.   edit  "",5, 44 22 90 10, pass
  32.   button "&Add", 6, 137 7 33 10
  33.   button "E&xit", 9, 6 165 167 10, ok
  34.   box "NickList", 10, 6 40 167 120
  35.   list 11, 11 48 123 114, vsbar, sort
  36.   button "&Remove", 12, 137 48 33 10
  37. }
  38.  
  39. ;-------- -  -
  40. ; Aliases
  41. ;-------- -  -
  42.  
  43. alias -l zmodem.autoid.load {
  44.   if ($exists($findfile($scriptdir,autoid.ini,1)) == $false) || ($lines($scriptdirautoid.ini) < 2) { zmodem.autoid Invalid INI file! Creating new... | write -c $scriptdirAUTOID.ini | return }
  45.   set %zmodem.autoid.viewreadme $?!="Do you want to read the readme file now?"
  46.   if (%zmodem.autoid.viewreadme == $false) || (%zmodem.autoid.viewreadme == $null) { return }
  47.   zmodem.autoid.readme
  48. }
  49. alias -l zmodem.autoid echo -a  $+ $colour(info) $+ *** $1-
  50. alias -l zmodem.autoid.start {
  51.   if ($exists($scriptdirAUTOID.ini) == $false) { zmodem.autoid.makeini }
  52.   if ($dialog(zmodem.autoid.setup) == $null) { dialog -m zmodem.autoid zmodem.autoid }
  53. }
  54. alias -l zmodem.autoid.setup.screen dialog -m zmodem.autoid.setup zmodem.autoid.setup
  55. alias -l zmodem.autoid.makeini {
  56.   write -c $scriptdirAUTOID.ini
  57.   write $scriptdirAUTOID.ini [autoid]
  58.   zmodem.autoid.write state 0
  59. }
  60. alias -l zmodem.autoid.write {
  61.   writeini -n $scriptdirAUTOID.ini autoid $1-
  62. }
  63. alias -l zmodem.autoid.read {
  64.   return $readini $scriptdirAUTOID.ini autoid $1-
  65. }
  66. alias -l zautoid {
  67.   if ($1 == state) { return $readini $scriptdirAUTOID.ini autoid $1 }
  68. }
  69. alias -l zmodem.autoid.on {
  70.   if ($zautoid(state) == 0) { return ON }
  71. }
  72. alias -l zmodem.autoid.off {
  73.   if ($zautoid(state) == 1) { return OFF }
  74. }
  75. alias -l zmodem.autoid.readme {
  76.   if ($exists($findfile($scriptdir,zmodemautoidreadme1st.txt,1)) == $false) { echo -a  $+ $colour(info) $+ *** File not found: $scriptdirZmodemautoidreadme1st.txt. This is the Readme file. If you need help using this script, chances are the help you want is in the readme. You should download this from: http://members.xoom.com/mircscripts/zmodemautoidreadme1.txt $+ . | return }
  77.   run $findfile($scriptdir,zmodemautoidreadme1st.txt,1)
  78. }
  79. alias -l zmodem.autoid.add {
  80.   if ($did($dname,4) == $null) || ($did($dname,5) == $null) { zmodem.autoid Sorry, invalid information! | return }
  81.   zmodem.autoid.write $did($dname,4) $did($dname,4) $+ , $+ $did($dname,5)
  82.   set %zmodem.autoid.checklist.max $did($dname,11).lines
  83.   set %zmodem.autoid.checklist.inc 1
  84.   :checklist
  85.   if (%zmodem.autoid.checklist.inc > %zmodem.autoid.checklist.max) { did -a zmodem.autoid.setup 11 $did($dname,4) | zmodem.autoid.lNEW | unset %zmodem.autoid.checklist* | return }
  86.   if ($did($dname,11,%zmodem.autoid.checklist.inc) == $did($dname,4)) { unset %zmodem.autoid.checklist | return }
  87.   inc %zmodem.autoid.checklist.inc
  88.   goto checklist
  89. }
  90. alias -l zmodem.autoid.lNEW {
  91.   set %zmodem.autoid.new.max $did($dname,11).lines
  92.   set %zmodem.autoid.new.inc 1
  93.   :incit
  94.   if (%zmodem.autoid.new.inc > %zmodem.autoid.new.max) { unset %zmodem.autoid.new* | return }
  95.   if ($did($dname,11,%zmodem.autoid.new.inc) == $did($dname,4)) { did -c $dname 11 %zmodem.autoid.new.inc | unset %zmodem.autoid.new* | return }
  96.   inc %zmodem.autoid.new.inc
  97.   goto incit
  98. }
  99. alias -l zmodem.autoid.rem {
  100.   set %tmp.zmodem.autoid.rem.inc 3
  101.   :inclist
  102.   set %tmp.zmodem.autoid.rem.read $read -l $+ %tmp.zmodem.autoid.rem.inc $scriptdirAUTOID.ini
  103.   if (%tmp.zmodem.autoid.rem.read == $null) { unset %tmp.zmodem.autoid.rem* | return }
  104.   if ($gettok(%tmp.zmodem.autoid.rem.read,1,61) == $did($dname,11,$did($dname,11).sel)) { 
  105.     did -r $dname 11
  106.     write -dl $+ %tmp.zmodem.autoid.rem.inc $scriptdirAUTOID.ini
  107.     zmodem.autoid.make.list
  108.     unset %tmp.zmodem.autoid.rem*
  109.     did -r $dname 4
  110.     did -r $dname 5
  111.     return
  112.   }
  113.   ;did -a $dname 11 $gettok(%tmp.zmodem.autoid.rem.read,1,61)
  114.   inc %tmp.zmodem.autoid.rem.inc
  115.   goto inclist
  116. }
  117. alias -l zmodem.autoid.make.list {
  118.   set %tmp.zmodem.autoid.makelist.inc 3
  119.   :inclist
  120.   set %tmp.zmodem.autoid.makelist.read $read -l $+ %tmp.zmodem.autoid.makelist.inc $scriptdirAUTOID.ini
  121.   if (%tmp.zmodem.autoid.makelist.read == $null) { unset %tmp.zmodem.autoid.makelist* | return }
  122.   did -a zmodem.autoid.setup 11 $gettok(%tmp.zmodem.autoid.makelist.read,1,61)
  123.   inc %tmp.zmodem.autoid.makelist.inc
  124.   goto inclist
  125. }
  126. alias -l zmodem.autoid.unload {
  127.   set %zmodem.autoid.unload.temp $?!="Are you sure you want to unload Zmodem's DALnet Auto-Identifier v1.50?"
  128.   if (%zmodem.autoid.unload.temp == $false) || (%zmodem.autoid.unload.temp == $null) { unset %zmodem.autoid.unload* | return }
  129.   unset %zmodem.autoid*
  130.   echo -a  $+ $colour(info) $+ *** Unloaded $script $+ . Check at: http://www.xcalibre.com for more updates, or go to http://zmodem.cjb.net to check out Zmodem's web page.
  131.   .unload -rs $script
  132. }
  133.  
  134.  
  135. ; Main Dialog Events
  136.  
  137. on *:DIALOG:zmodem.autoid:init:0:{
  138.   if ($zautoid(state) == 1) { did -c $dname 1 | return }
  139. }
  140. on *:DIALOG:zmodem.autoid:sclick:1: {
  141.   zmodem.autoid.write state $did($dname,$did).state
  142.   if ($did($dname,$did).state == 0) { .disable #zmodem.autoid | zmodem.autoid.write state 0 }
  143.   if ($did($dname,$did).state == 1) { .enable #zmodem.autoid | zmodem.autoid.write state 1 }
  144. }
  145. on *:DIALOG:zmodem.autoid:sclick:2:{
  146.   if ($dialog(zmodem.autoid.setup) != zmodem.autoid.setup) { zmodem.autoid.setup.screen | goto end }
  147.   zmodem.autoid Sorry, Zmodem's DALnet Auto-Identifier Setup screen is already open
  148.   :end
  149. }
  150.  
  151.  
  152.  
  153. ;Setup Dialog
  154.  
  155. on *:DIALOG:zmodem.autoid.setup:init:0:{
  156.   zmodem.autoid.make.list
  157. }
  158. on *:DIALOG:zmodem.autoid.setup:sclick:6: {
  159.   zmodem.autoid.add
  160. }
  161. on *:DIALOG:zmodem.autoid.setup:sclick:11:{
  162.   if ($did($dname,$did,$did($dname,$did).sel) == $null) { return }
  163.   set %tmp.zmodem.autoid.show $zmodem.autoid.read($did($dname,11,$did($dname,$did).sel))
  164.   did -r $dname 4
  165.   did -r $dname 5
  166.   did -a $dname 4 $gettok(%tmp.zmodem.autoid.show,1,44)
  167.   did -a $dname 5 $gettok(%tmp.zmodem.autoid.show,2,44)
  168. }
  169. on *:DIALOG:zmodem.autoid.setup:sclick:12:{
  170.   zmodem.autoid.rem
  171. }
  172.  
  173.  
  174.  
  175. ;Groups
  176.  
  177. #Zmodem.Autoid on
  178. on *:CONNECT:{
  179.   if ($right($server,8) == .dal.net) {
  180.     set %tmp.zmodem.autoid.check.exists $readini $scriptdirAUTOID.ini autoid $me
  181.     if (%tmp.zmodem.autoid.check.exists == $null) { return }
  182.     nickserv identify $gettok($replace(%tmp.zmodem.autoid.check.exists,$chr(44),$chr(46)),2,46)
  183.     unset %tmp.zmodem.autoid.check*
  184.   }
  185.   return
  186. }
  187. on *:NOTICE:This nick is owned by*:?:{
  188.   if ($right($server,8) == .dal.net) && ($nick == NickServ)  {
  189.     set %tmp.zmodem.autoid.check.exists $readini $scriptdirAUTOID.ini autoid $me
  190.     if (%tmp.zmodem.autoid.check.exists == $null) { return }
  191.     nickserv identify $gettok($replace(%tmp.zmodem.autoid.check.exists,$chr(44),$chr(46)),2,46)
  192.     unset %tmp.zmodem.autoid.check*
  193.   }
  194.   return
  195. }
  196. on *:NICK:{
  197.   if ($newnick == $me) && ($right($server,7) == dal.net) {
  198.     if ($right($server,7) == dal.net) {
  199.       set %tmp.zmodem.autoid.check.exists $readini $scriptdirAUTOID.ini autoid $me
  200.       if (%tmp.zmodem.autoid.check.exists == $null) { return }
  201.       nickserv identify $gettok($replace(%tmp.zmodem.autoid.check.exists,$chr(44),$chr(46)),2,46)
  202.       unset %tmp.zmodem.autoid.check*
  203.     }
  204.     return
  205.   }
  206. }
  207. #Zmodem.Autoid end
  208.  
  209.  
  210.  
  211. ;Menus
  212. menu menubar,status,channel {
  213.   Zmodem's DALnet Auto-Identifier
  214.   .Control
  215.   ..$zmodem.autoid.on:.enable #Zmodem.Autoid | zmodem.autoid.write state 1
  216.   ..$zmodem.autoid.off:.disable #Zmodem.Autoid | zmodem.autoid.write state 0
  217.   .-
  218.   .Options...:zmodem.autoid.start
  219.   .-
  220.   .View Readme:zmodem.autoid.readme
  221.   .-
  222.   .Unload:zmodem.autoid.unload
  223. }
  224.  
  225.  
  226.  
  227. ;CHECK VERSION EVENTS
  228.  
  229. on *:LOAD: {
  230.   if ($version < 5.61) {
  231.     echo -a  $+ $colour(info) $+ *** Zmodem's DALnet Auto-Identifier v1.50 expects the use of mIRC 5.61 to operate correctly. Please download a new version from: http://www.mirc.com
  232.     unload -rs $shortfn($script)
  233.     return
  234.   }
  235.   echo -a  $+ $colour(info) $+ *** Zmodem's DALnet Auto-Identifier v1.50 loaded. by: Zmodem <justinterri@netzero.net>
  236.   echo -a  $+ $colour(info) $+ *** Click one of the following popup menus to find its menu: Menubar, Status, Nicklist, & Channel
  237.   zmodem.autoid.load
  238. }
  239. on *:START: {
  240.   if ($version < 5.61) {
  241.     echo -a  $+ $colour(info) $+ *** Zmodem's DALnet Auto-Identifier v1.50 expects the use of mIRC 5.61 to operate correctly. Please download a new version from: http://www.mirc.com
  242.     unset %zmodems.autoid*
  243.     unload -rs $shortfn($script) | halt
  244.   }
  245. }
  246.